!file name=eigv.h
      integer niter
      real(NBF) eigv,reigv
      real(NBF),pointer,dimension(:) :: psif,psifd
      real(NBF),pointer,dimension(:,:) :: tavg1,tavg2
      real(NBF),pointer,dimension(:,:,:) :: src,avgflx
!
      common/ea/niter
      common/eb/eigv,reigv
      common/ec/psif,psifd
      common/ee/src,avgflx
      